home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 3 / Amoszine 3.adf / CC-Solutions / CC-Solution-3.AMOS / CC-Solution-3.amosSourceCode
Encoding:
AMOS Source Code  |  1992-02-26  |  844 b   |  47 lines
  1. Rem Clock Face 
  2. '
  3. Degree 
  4. '  
  5. Cls 0
  6. Ink 2
  7. Circle 160,100,95
  8. Paint 160,100,2
  9. Ink 0
  10. For C=0 To 359 Step 30
  11.   Draw 160+(Sin(C)*90),100-(Cos(C)*90) To 160+(Sin(C)*95),100-(Cos(C)*95)
  12. Next C
  13. '
  14. TIME=Timer
  15. Do 
  16.  '
  17.  SC=(Timer-TIME)/50
  18.  '
  19.  Gosub _CLOCK
  20.  '
  21. Loop 
  22. End 
  23. '
  24. _CLOCK:
  25.  '
  26.  TM1=(360/(60*60*12.0))*SC
  27.  TM2=(360/(60*60.0))*SC
  28.  TM3=(360/60.0)*SC
  29.  '
  30.  If TM1<>XTM1
  31.     Ink 2 : Draw 160,100 To 160+(Sin(XTM1)*90),100-(Cos(XTM1)*90)
  32.     XTM1=TM1
  33.  End If 
  34.  If TM2<>XTM2
  35.     Ink 2 : Draw 160,100 To 160+(Sin(XTM2)*50),100-(Cos(XTM2)*50)
  36.     XTM2=TM2
  37.  End If 
  38.  If TM3<>XTM3
  39.     Ink 2 : Draw 160,100 To 160+(Sin(XTM3)*20),100-(Cos(XTM3)*20)
  40.     XTM3=TM3
  41.  End If 
  42.  '
  43.  Ink 0 : Draw 160,100 To 160+(Sin(TM1)*90),100-(Cos(TM1)*90)
  44.  Ink 0 : Draw 160,100 To 160+(Sin(TM2)*50),100-(Cos(TM2)*50)
  45.  Ink 4 : Draw 160,100 To 160+(Sin(TM3)*20),100-(Cos(TM3)*20)
  46.  '
  47. Return